#! 
# by jzhang @ 20:48 2004-01-07  mailto:v-jzhang
#

use warnings;
use strict;
use File::Basename;

@ARGV == 1 or die;
open DATA, $ARGV[0] or die;

my %x_y;

my @data = <DATA>;
chomp @data;

my $i=-4.0;


foreach (@data)
{
    for($i=-4.0;$i<=4.0;$i=$i+0.1)
    {
	last if($_<$i);
    }
    $x_y{$i-0.1}++;
}

foreach(sort( {$a <=> $b } keys %x_y ) )
{
    print "$_\t",
}

print "\n";
foreach(sort( {$a <=> $b } keys %x_y ) )
{
    print "$x_y{$_}\t",
}


close DATA;
